home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 019a / amac40.zip / COM002.QM < prev    next >
Text File  |  1991-07-28  |  8KB  |  145 lines
  1. *                               COM002.QM
  2. *                        Written By Tom Hogshead
  3. *                       [ See COMTxx.QM For Use ]
  4. *                             July 28, 1991
  5. *  Key    Subfile              Description
  6. * =====  =========  =====================================================
  7. * @(5)            --Make Macro Title Box
  8. *
  9. * @(6)            --Copy Macro Title To Index
  10. *
  11. * @(9)            --Remove Macro Title Box
  12. *
  13. *  (_)    {e:\up\COMT*}--Return To COMTxx.QM
  14. *
  15. *-- eoi
  16.  
  17.  
  18. * 
  19. * ----------------------------------------------------------------------
  20. * @(5) Make macro title box
  21. *     (like this, multi-lines OK)
  22. * ----------------------------------------------------------------------
  23. * Type macro title with *no* star in front. Either mark title as a block,
  24. * or press @5, cursor down to end of title, and hit enter. Title need not
  25. * have blank lines on top or bottom before macro execution. See JMPPOSxx.QM
  26. * for discussion and use of position markers.
  27.  
  28. @5 MacroBegin                       *
  29. * ------- Check and finish marking line or block if not marked -------*
  30.     gotoblockend                * Test if block is closed                 |
  31.     jtrue OK:                   * If closed, go to OK                     |
  32.     markline                    * If not closed, close temporarily        |
  33.                                 *  or start mark                          |
  34.     gotoblockend                * Move to end of block if closed or stay  |
  35.                                 *  where we are if block not yet closed   |
  36.     jtrue OK:                   * If block is now closed, we started with |
  37.                                 *  an open block                          |
  38.     makectrofscreen             * Center for viewing                      |
  39.     Pause                       * Pause to mark end of block              |
  40.     markline                    * Mark end of block                       |
  41.  OK:                            *                                         |
  42. * -------------------------- shift title   --------------------------*    |
  43.         BegLine                 *                                         |
  44.         ShiftRight ShiftRight   * Shift all lines to right twice          |
  45.         AddLine                 * Add line under title                    |
  46.         GotoBlockBeg            * Move to 1st char of first line          |
  47.         insertline              * Insert line on top of title             |
  48.         cursordown              * Move back to top of title               |1.5
  49.         MarkColumn              * Mark 1st character column               |
  50.         endpara                 * Move to end of title                    |
  51.         BegLine                 * Move to begin of last line              |
  52.         FillBlock '*' Return    * Fill 1st column with '*'                |
  53. * ------------------------- make box bottom -------------------------*    |
  54.         CursorDown                  * Move one line under title           |
  55.         BegLine "*"                 * put * at begin of bottom line       |
  56.         CursorRight                 * space right                         |
  57.         UnmarkBlock                 * Un-mark                             |
  58.         DropAnchor                  * Start block                         |
  59.         GoToColumn "72" Return      * Finish block for dashes             |
  60.         FillBlock "-" Return        * fill block with dashes              |
  61.         markline                    * Mark bottom line                    |
  62.         copy                        * Copy to scrap                       |
  63. * --------------------------- make box top ---------------------------*   |
  64.         prevpara                    * Move to begin of title              |
  65.         Paste                       * paste bottom line to top line       |
  66. * --------------- Insert Position Marker On Top of Box ---------------*   |
  67.         InsertLine BegLine          * Insert a blank line                 |
  68.         "*"                         * with Marker on it                   |
  69.         CursorRight                 *                                     |
  70.         #031 #030                   *                                     |
  71.         cursordown                  *                                     |
  72.         cursordown                  * Cursor down to first line of title  |
  73.         endline                     * Move to end of title for more edit  |
  74.         scrolldown 4                * Re-position screen where we were    |
  75. *  END:                             *                                     |
  76.         unmarkblock                 *
  77. *
  78. * 48 bytes Fri  03-29-1991  15:13:26
  79. * 61 bytes Thu  05-02-1991  12:24:22 OK for multi-line titles
  80. * 67 bytes Tue  05-28-1991  21:06:20 (TH select title, add position marker)
  81. * 68 bytes Mon  06-03-1991  22:48:52 (TH added BegLine after block marked)
  82. * 69 bytes Tue  06-04-1991  08:48:51 (TH)
  83.  
  84. * 
  85. * ----------------------------------------------------------------------
  86. * @(6) Copy macro title to index
  87. * ----------------------------------------------------------------------
  88.  
  89. * Put cursor anywhere in macro title box not on top or bottom line.
  90. * Press @6 to copy title to last line of index on top. Index must have
  91. * at least one blank line at end. Title must not contain "--".
  92.  
  93. * If the first word in the title is enclosed in ( ) like (6), press @h,
  94. * cursor down to select desired title, and press <enter> to return to
  95. * title line below.
  96.  
  97. @6      MacroBegin                  *
  98.         UnmarkBlock                 * Make sure no blocks marked
  99.         Find "--" Return "B" Return * Move cursor to top line
  100.         CursorDown                  * Move down one line
  101.         MarkLine                    * Mark top of title
  102.         Find "--" Return  Return    * Move cursor to bottom line
  103.         CursorUp                    * Move to bottom of title
  104.         MarkLine                    * Finish marking title
  105.         Copy                        * Copy title to scrap
  106.         BegFile EndPara             * Go to last line of index
  107.         CursorDown                  * Move to end of index
  108.         Begline                     *
  109.         Paste                       * Paste title to bottom of index
  110.         CursorRight CursorRight     * Move to title in index to edit
  111.         UnmarkBlock                 * Un-mark title
  112. *
  113. * 16 bytes Sun  03-31-1991  21:01:48
  114. * 34 bytes Wed  05-01-1991  02:51:46
  115.  
  116. * 
  117. * ----------------------------------------------------------------------
  118. * @(9) Remove macro title box
  119. * ----------------------------------------------------------------------
  120. *
  121. * Position cursor anywhere in title box. Press @9 to remove title box.
  122. * Title box must have at least one blank line on top but need not have
  123. * a blank line beneath it. Top line of box must be  * --- >
  124.  
  125. @9  MacroBegin                      *
  126.     UnMarkBlock                     * un-mark all blocks
  127.     CursorDown                      * move down to find begin of box
  128.     MarkLine                        * mark top line
  129.     PrevPara                        * move to begin of box
  130. *     MarkLine                        * mark top line
  131.     Find "--" Return "L" Return     * check if already boxed
  132.     JFalse END:                     * if not, end
  133.     DelLine                         *ELSE delete box top
  134.     Find "--" Return DelLine Return * Find box bottom
  135.     JFalse END:                     * if no box bottom
  136.     DelLine                         *ELSE delete box bottom
  137.     PrevPara                        * move to begin of first title line
  138.  END:                               *
  139.     ScrollDown                      * Re-position screen to where we were
  140.     UnMarkBlock                     * un-mark block
  141. *
  142. * 36 bytes Sun  05-05-1991  22:13:00 (TH @9)
  143.  
  144.  
  145.